home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / tiere raten (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  73 lines
  1. 10 PRINT"[147]":REM TIERE RATEN
  2. 20 PRINT:PRINT"   TIERE RATEN"
  3. 30 PRINT"   ***********"
  4. 40 PRINT:PRINT:PRINT"  ES SIND TIERE MIT 5 BUCHSTABEN"
  5. 50 PRINT:PRINT"  ZU ERRATEN!"
  6. 60 PRINT:PRINT:PRINT"  ICH SAGE DIR, WIEVIELE BUCHSTABEN"
  7. 70 PRINT:PRINT"  STIMMEN UND WIEVIELE AN RICHTIGER"
  8. 80 PRINT:PRINT"  STELLE STEHEN!"
  9. 90 PRINT:PRINT:PRINT"  DIE BUCHSTABEN WERDEN OHNE"
  10. 100 PRINT:PRINT"  RETURN-TASTE EINGEGEBEN!"
  11. 110 DIMB$(250)
  12. 115 DATAA,P,A,O,R,K,R,S,K,K,F,L,G,L,W,R,I,A,M,B,K,B,L,H,B
  13. 120 DATAW,T,E,G,P,E,W,S,M,O,D,S,Z,N,H,P,S,S,P,D,T,K,R,Z,B
  14. 125 DATAD,F,S,T,A,R,A,T,A,R,U,A,E,O,A,A,L,M,E,U,A,A,U,E,I
  15. 130 DATAE,I,N,E,A,C,A,C,I,C,A,T,E,A,E,I,P,P,U,O,A,A,O,I,I
  16. 135 DATAL,E,S,T,U,A,L,U,T,E,C,C,M,E,N,T,T,S,I,L,T,C,C,C,E
  17. 140 DATAS,G,T,I,N,H,R,H,L,H,C,I,B,N,N,R,A,I,D,H,P,M,B,E,S
  18. 145 DATAE,R,E,E,P,K,L,T,Z,B,H,H,S,W,Z,T,I,E,S,L,E,H,H,H,N
  19. 150 DATAP,E,E,E,D,S,A,A,A,S,H,E,R,D,N,O,T,T,E,L,I,E,B,G,O
  20. 155 DATAR,D,L,R,E,E,E,E,E,S,S,S,E,E,E,E,S,L,E,E,R,E,S,T,E
  21. 160 DATAE,R,R,R,A,E,N,F,N,E,S,R,A,U,E,L,Z,Z,L,E,R,L,E,E,N
  22. 170 FORI=1TO250:READB$(I):NEXTI
  23. 180 PRINTTAB(30);:INPUTF1
  24. 200 PRINT"[147]  WIR SPIELEN MIT:"
  25. 210 FORJ=1TO50
  26. 220 FORI=JTO250STEP50
  27. 230 PRINTB$(I);
  28. 240 NEXTI
  29. 250 PRINT"   ";
  30. 260 NEXTJ
  31. 400 Z=INT(RND(1)*50)+1
  32. 410 K=0
  33. 420 FORJ=ZTO250STEP50
  34. 430 K=K+1:R$(K)=B$(J)
  35. 440 NEXTJ
  36. 450 PRINT
  37. 460 FORI=1TO5:IFF1=7THENPRINTR$(I);:NEXTI
  38. 462 FORI=1TO100:NEXTI:PRINT"[157]";
  39. 464 FORI=1TO5:IFF1=7THENPRINT" [146][157][157]";:NEXTI
  40. 470 PRINT
  41. 480 PRINT" VORSCHLAG:";
  42. 490 REM EINGABE UND RICHTIGE STELLEN PRUEFEN
  43. 500 FORI=1TO5
  44. 510 GETT$(I):IFT$(I)=""THEN510
  45. 520 PRINTTAB(12);T$(I);
  46. 530 IFT$(I)=R$(I)THENS=S+1
  47. 540 NEXTI
  48. 550 REM PRUEFEN, OB ES DAS TIER GIBT
  49. 560 FORU=1TO50
  50. 570 I=1:X=0
  51. 580 FORB=UTO250STEP50
  52. 590 IFT$(I)=B$(B)THENX=X+1
  53. 600 I=I+1
  54. 610 NEXTB
  55. 620 IFX=5THEN670
  56. 630 NEXTU
  57. 640 PRINT"   SPIELT NICHT MIT!"
  58. 650 S=0:T=0:FL=1:GOTO480
  59. 660 REM TREFFER ZAEHLEN
  60. 670 FORI=1TO5
  61. 680 FORJ=1TO5
  62. 690 IFT$(I)=R$(J)THENT=T+1:T$(I)="*":R$(J)="+"
  63. 700 NEXTJ
  64. 710 NEXTI
  65. 720 REM AUSWERTUNG
  66. 730 IFS=5THEN780
  67. 740 PRINTTAB(19)T;"TREFFER"
  68. 750 PRINTTAB(19)S;"AN R. STELLE"
  69. 760 V=V+1
  70. 770 T=0:S=0:FL=1:GOTO410
  71. 780 PRINT:PRINTTAB(25)"DAS IST ES!"
  72. 790 PRINTTAB(24)V+1;"VERSUCHE"
  73.